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Algorithm 0-0.2: Update AVAIL RXR LlSTs{Global, Node,Token) 

if rxrJLisis are empty 
then return 

if Node is on a lightpath 
then note source and sink . 

for each rec G Node.addJbackjrxrJiist 
increment rec.arfj 

increment rofcen[rec.5znA;]>AVAlL^RXRS 
if To/^en[rec.smA:]. NUM_FAILS > 0 

then decrement Tofeenfrec.smA;]. NUM^FAiLS 
if recadj =0 , 
then delete rec 



do < 



[block 0] 
[block 1] 
[block 2] 



for each reci G Node, take Mwayjrxrdist [block 3] 

'decrement reci. at// 

decreinent Tofcen[reci .5m/c].AVAlL_llXRS 

if (ToA:en[reci.smA;].AVAiL»RXRS + Tpfcen[reci.5mA;].NUM_FAiLS) < 0^ 
' increment Tofcen[reci .5mA:] .NUM_FAILS 

if sink noted and reci.sink — sink and Token[reci.sink],LlNK = SINK'^ 
then if no active txn to sink 

{comment: TANDEM 
Node.on.off[\i]^ ON 
else if Token[sink].LiNKJURG > urgency of least urgent active txn 
' comment: STOMP 



do < 



then < 



^Y^^^^Node.onjoff[Xi\<r- ON 

discontinue own least urgent active TXN 
invoke Fai/ed.TXN (9 

(comment: SIPHON 
reset lightpath from sink upstream 
Node.on.off[Xi] <r- OFF 
Token[source],TXJFAlL <— sink 



else 



if rec\.adj == 0 

new rec2 



then < 



{reci.sink^ ^{GlobaLnumAokens)) 
add rec2 to Node.add^backjrxrJist 
delete reci 



^if the sum of the avail_rxrs and nuM-FAILS token fields for reci,sink becomes negative ... 
''if reci.sink is the sink of a lightpath that was noted near the top of the algorithm 
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^ Start j 
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fully on activ^.. - j^Q .. be bypassed? .^^^^ j^^^ 
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YES 



• change RI to4ai;^t bypass ring 

• if new RI changes route at thisnpde, . : 
dp switch change 



• dest. node := MAXDEST 

• tune TXR to token A; open ON-OFF switch 



• dec AVAIL RXRS in destination token record i 

• add (SID. (w- 1 )) to AVAIL RXRS LIST I 

— - — — 



Mark Path 



I 



Return 



Algorithm 0.0.3: Reserve Links PROGEDURE(Tofcen, Path) 

create priority queue of destination candidates^ sorted on primary key (most urgent), 

and secondary key. (greatest hop-length) 

while (ij 

if queue empty 
then return 

pop candidate 

if every rs\lurg of path to candidate has lower urgency than candidate burst 

........ . . ..... ^ . ; . . ■ 

then drop through WHILE loop 
for ea.ch link on Path 

note "losing" reservation ID, if any 
write "my" ID and MAXDEST urgency number 

^ • " - " - " 

for each losing ID ' 



do < 



do i 



do 



reset all reservations which are contiguous to new reservation link 
and which have losing IDs (clear away "orphaned" IDs) 
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next link Jd ^"01" 

next Ijnk^urg ^ burst urgency 




Algorithm 0.0.1: Find PATU{Global, Node, Token) 



do < 



if a TXR is available 

fin4 max (the FREE link farthest dowristream on active ring) 
destdist all dests (with bursts waiting) incl. max" 
sort destdist, by prinaary key (most urgent) - 
and secondary key (farthest) 

while (1) 

if destdist is enipty 
then return 

dest "k;^ destdist 

if (V intermediate link, {dest.urg > link,RSV-\JRG) 
and "grayed-out" links can be bypassed), 
then break* 
if "grayed-out" links on path 

Token, RI largest available bypass ring (RI) 
if new RI changes the' route at thisnode, set switch 
decrement ToA;en[dest].AVAiL_R^RS 
arrec ^ {dest, GlobaLnumdokens — 1) 
add arrec to Nqdedak'ejawayjrxrsdist 
markjpath(desit, dest.urg) 



then < 



then 



[3110] 



[3118] 
[3120] 

[3130] 



**Recall that node information appears on the token in the same record with its upstream link. 

*The break statement is unconditional, except m RESERVATION scheme (first condition) and MESH (second 



condition). 
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